Imports System.Text

Public Class SUM_System
    Private msBaseURL As String = ""

    Public Sub New( _
            ByVal sBaseURL As String)

        msBaseURL = sBaseURL
    End Sub

    Public Function Summerize() As String
        Dim sHTM As New StringBuilder

        Dim oFactory As New SQLAutoDocLib.Server_Factory
        For Each oServer As SQLAutoDocLib.Server In oFactory.AllActiveServers
            Dim oSum As New SQLAutoDocLib.SUM_Server(msBaseURL, oServer.ID)
            oSum.ShowBlocks = True
            oSum.ShowConnect = True
            oSum.ShowSchema = True
            oSum.ShowSize = True
            oSum.ShowWaitStates = True

            sHTM.Append(oSum.Summerize)
            sHTM.Append("<br/>")
        Next

        Return sHTM.ToString
    End Function
End Class
